VERSION 5.00
Begin VB.Form frmVisualizza 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Visualizza dati"
   ClientHeight    =   6810
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   9885
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6810
   ScaleWidth      =   9885
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtValori 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6255
      Left            =   3960
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   480
      Width           =   5775
   End
   Begin VB.TextBox txtCampi 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6255
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   480
      Width           =   3735
   End
   Begin VB.Label lblTitoloValori 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Valori precedenti"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3720
      TabIndex        =   3
      Top             =   120
      Width           =   3495
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Campi"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   2415
   End
End
Attribute VB_Name = "frmVisualizza"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    Dim i As Integer
    Dim k As Integer
    Dim v_mod_nomi() As String
    Dim v_mod_val() As String
    For i = 1 To UBound(v_nomi)
        If Trim(v_nomi(i)) = "Nome campi" Then
            v_mod_nomi = Split(v_val(i), "&-&")
            For k = 0 To UBound(v_mod_nomi)
                txtCampi = txtCampi & v_mod_nomi(k) & vbCrLf
            Next k
        ElseIf Trim(v_nomi(i)) = "Valori" Then
            v_mod_val = Split(v_val(i), "&-&")
            For k = 0 To UBound(v_mod_val)
                txtValori = txtValori & v_mod_val(k) & vbCrLf
            Next k
        Else
            txtCampi = txtCampi & v_nomi(i) & vbCrLf
            txtValori = txtValori & v_val(i) & vbCrLf
        End If
    Next i
    Select Case tVisualizza
        Case tpACCESSI
            lblTitoloValori = "Valori"
        Case tpMODIFICHE
            lblTitoloValori = "Valori precedenti alla modifica"
        Case tpELIMINAZIONI
            lblTitoloValori = "Valori eliminati"
    End Select
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyEscape Then
        Unload Me
    End If
End Sub

Private Sub txtCampi_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyEscape Then
        Unload Me
    End If
End Sub

Private Sub txtValori_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyEscape Then
        Unload Me
    End If
End Sub

